Monster Media 1996 #15

home *** CD-ROM | disk | FTP | other *** search

/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / bbs_lord / life118d.zip / LIFE.ZIP / INNTXT.DAT < prev next >

Wrap

Text File | 1996-03-12 | 16KB | 471 lines

@#Inn `<SetOptions>=[C,G,A,H,S,R] `<Clear> `0 Royal Inn `0-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= `2 You wander into a nice looking Inn `2The Inn is palatial...and you fear you could never afford `2to sleep here. `2 (`5C`2)hat about life in general. `2 (`5G`2)et a room fer the night `2 (`5A`2)sk Guild of Thieves for another player's Lord stats! `2 (`5H`2)ave a chat with stable master Taim `2 (`5S`2)end mail to a lord user (Using `1A`9u`3t`!o `%C`3o`9l`1o`%r!`2) `2 (`4R`2)eturn to the big city @#InnOptions? `<SetMenu>=[Inn] @#InnOptionsS `2 `%Who would you like to send mail to? `2 `2(Full or `0PARTIAL`2 name) `<RetOff> `2NAME: `<LordIn>=[(TempStr0),70,100,2,(TheUser)] `<NewLine> `<RetOn> `<if>=[(TempStr0),(TheUser),,@#Abort] `<NewLine> `<FindLordUser>=[(TempStr0),(TheUser)] `<NewLine> `<if>=[(TempStr0),(TheUser),###NotFound###,@#UserNotFound] `<SetVal>=[(TempStr1),(TheUser), `0] `<AddVal>=[(TempStr1),(TheUser),(LordNick)] `<AddVal>=[(TempStr1),(TheUser), `2sent you this message from `!Lor`%d L`9ife!`%: ] `<FilePrint>=[(TempStr1),(TempStr0),(TLordsDir),(TMailSlot),`] `<SetVal>=[(TempStr1),(TheUser),-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-] `<FilePrint>=[(TempStr1),(TempStr0),(TLordsDir),(TMailSlot),0] `2Enter message now! Blank line quits. `5For help on color go to the (`2C`5)ounselling help and then: `5you can select (`2H`5)elp on lord color scheme `$<AUTO-COLOR ENGAGED!> `2 `<goto>=[@#InOneLine] @#InOneLine `<NewLine> `<RetOff> `2 > `<LordIn>=[(TempStr3),70,100,%,(TheUser)] `<RetOn> `<SetVal>=[(TempStr1),(TheUser), ] `<AddVal>=[(TempStr1),(TheUser),(TempStr3)] `<FilePrint>=[(TempStr1),(TempStr0),(TLordsDir),(TMailSlot),%] `<else>=[(TempStr3),(TheUser),,@#InOneLine] `<NewLine> `<SetVal>=[(TempStr1),(TheUser),] `<FilePrint>=[(TempStr1),(TempStr0),(TLordsDir),(TMailSlot),%] `<SetVal>=[(TempStr1),(TheUser),(TMailNum)] `<FilePrint>=[(TempStr1),(TempStr0),(TLordsDir),(TMailSlot),-] `<RetOn> `% Mail Sent! `2 @#InnOptionsG `<NewLine> `3 You purposefully stride across the marble lobby floor towards `3the front desk and in an unwavering, commanding voice declare that `3you are tired and desire a room right away so you can sleep... `5 The innkeeper looks at you with glaring eyes which you feel `5boring into your soul...can he sense your unease? `<SetVal>=[(TempStr3),(TheUser),out.] `<AddVal>=[(TempStr3),(TheUser),(TUserNum)] `<FileExists>=[(TempStr3),(TheUser),(TLordsDir)] `<if>=[(TempStr3),(TheUser),FALSE,@#ItsANoGo] `<SetVal>=[(TempStr3),(TheUser),out.] `<AddVal>=[(TempStr3),(TheUser),(TUserNum)] `5 The innkeeper finally smiles disarmingly... `<NewLine> `<RetOff> `3Pay the going rate of 1,000,000 Life dollars (Y/N)? `0[`5Y`0]: `<Space> `<GetAns>=[(TempStr0),YN,(TheUser)] `<PrintVal>=[(TempStr0),(TheUser)] `<NewLine> `<RetOn> `<if>=[(TempStr0),(TheUser),N,@#Abort] `<ifless>=[(FLifeGold),(TheUser),1000000,@#NSF] `<SubVal>=[(FLifeGold),(TheUser),1000000] `3 The innkeeper looks at you with newfound respect... `3Right this way sir... `<SetVal>=[(TempStr2),(TheUser),(TLifesdir)] `<AddVal>=[(TempStr2),(TheUser),LIFE.EXE *] `<Delete>=[(TLordsDir),(TempStr3)] `<SetVal>=[(TempStr1),(TheUser),`3sleeping away peacefully in `1Lord `9Life's`3 inn`2!] `<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TempStr3),`] `<SetVal>=[(TempStr1),(TheUser),(TempStr2)] `<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TempStr3),`] `3Leaving Life...Leaving Lord...Preparing for sleep... `<if>=[(MailUserResults),(TheUser),1,@#MailGoodNight] `<Exit> @#MailGoodNight `<SetVal>=[(TempStr1),(TheUser),You fell asleep in the warmth of the `1Royal Inn`2!] `<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),!] `<SetVal>=[(TempStr1),(TheUser),] `<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),%] `<SetVal>=[(TempStr1),(TheUser),(TMailNum)] `<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),-] `3Press any key to fall into sleep--away from the troubles of lord... `<More> `<Exit> @#InnOptionsC `<NewLine> `<Clear> `% Conversations at the `1Royal Inn`2. `0-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- `<ShowLordFile>=[LifeInn.txt,(TLifesDir)] `<RetOff> `2(`5A`2)dd to conversation or (`5C`2)ontinue `0[`5C`0]: `<Space> `<GetAns>=[(TempStr0),CA,(TheUser)] `<PrintVal>=[(TempStr0),(TheUser)] `<NewLine> `<RetOn> `<if>=[(TempStr0),(TheUser),A,@#AddInnComment] @#AddInnComment `2 `2 Ok bub...Let's talk about life here. `!Feel free to use lord's color scheme... `5For help on color go to the (`2C`5)ounselling help and then: `5you can select (`2H`5)elp on lord color scheme `$ -=AUTO-COLOR NOW ENGAGED!!=- `<NewLine> `<RetOff> `2> `<LordIn>=[(TempStr0),70,100,2,(TheUser)] `<if>=[(TempStr0),(TheUser),,@#Abort] `<FilePrint>=[(LordNick),(TheUser),(TLifesDir),LifeInn.txt,%] `<FilePrint>=[(TempStr0),(TheUser),(TLifesDir),LifeInn.txt,2] `<TrimFile>=[(TLifesDir),LifeInn.txt,19] `<RetOn> @#InnOptionsA `2 `2 `2 Really unsure of a players real stats you decide that `2you must seek out the Guild of Thieves to find out... `2 It is said that the Guild of Thieves has information on `2everyone...but they seek a high price... `2 `<More> `2 You warily enter the dining room...your table is ready..You follow the `2waiter in a daze as you eyes search frantically for what you know you `2could never see...The Guild of Thieves hide themselves well...Once you `2get to the table you make the appropriate sign...and all others in the `2room immediately look away...pretending to be intent on their own `2business...Nobody wants to be involved in an accident... `2 `<More> `2 A wise looking youth approaches... `5He asks: "You wish information? `2We will give you information in exchange for a fairy... `2A fairy is very useful in our business... `2Fairies will perform a task for any who catch them..." `<More> `2 If you have one...we will tell you all you wish to know -- `<RetOff> `2in exchange for the fairy...Is this ok? (Y/N) `0[`5Y`0]: `<Space> `<GetAns>=[(TempStr0),YN,(TheUser)] `<PrintVal>=[(TempStr0),(TheUser)] `<NewLine> `<RetOn> `<if>=[(TempStr0),(TheUser),N,@#Abort] `<if>=[(TGotFairy),(TheUser),0,@#NoFairy] `<goto>=[@#okcont1] @#okcont1 `$So who might ye be interested in then? `<RetOff> `2 > `<LordIn>=[(TempStr0),70,100,2,(TheUser)] `<NewLine> `<RetOn> `<if>=[(TempStr0),(TheUser),,@#Abort] `<NewLine> `<FindLordUser>=[(TempStr0),(TheUser)] `<NewLine> `<if>=[(TempStr0),(TheUser),###NotFound###,@#UserNotFound] `<NewLine> `<RetOn> `<SetVal>=[(TGotFairy),(TheUser),0] `2 You hand over your bag containing the fairy... `2The youth quickly opens the bag, hands the fairy an `2envelope...whispers something...and the fairy is gone. `<SetVal>=[(TempStr1),(TheUser),(LordNick)] `<AddVal>=[(TempStr1),(TheUser), USED A FAIRY TO DISCOVER ] `<AddVal>=[(TempStr1),(TempStr0),(LordNick)] `<AddVal>=[(TempStr1),(TheUser),`%'s LORD STATS] `<SetVal>=[(TempStr2),(TheUser),`. `2-`0=`2-`0=`2-`0=`2-] `<SetVal>=[(TempStr3),(TheUser),`. From `1Lor`%d L`9ife`!!`2] `<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),Lognow.txt,%] `<FilePrint>=[(TempStr3),(TheUser),(TLordsDir),Lognow.txt,2] `<FilePrint>=[(TempStr2),(TheUser),(TLordsDir),Lognow.txt,2] `<SetVal>=[(TempStr1),(TheUser),] `<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),Lognow.txt,%] `<More> `<Clear> `7 PSST! HERE IS THE LORD STATS: `0-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- `<RetOff> `2Alias: `<PrintVal>=[(LordNick),(TempStr0)] `<if>=[(LWeirdEvent),(TempStr0),5,`! <A WEIRD EVENT WILL OCCUR IN FOREST!>] `<NewLine> `<if>=[(LHaveHorse),(TempStr0),5,`3 <Has a horse>] `<NewLine> `2Weapon: `<PrintVal>=[(LordWeapon),(TempStr0)] `<Space> `<Space> `2Real weapon name: `<Space> `<SetVal>=[(TempInt1),(TempStr0),(LWeaponNum)] `<if>=[(TempInt1),(TheUser),1,Stick] `<if>=[(TempInt1),(TheUser),2,Dagger] `<if>=[(TempInt1),(TheUser),3,Short Sword] `<if>=[(TempInt1),(TheUser),4,Long Sword] `<if>=[(TempInt1),(TheUser),5,Huge Axe] `<if>=[(TempInt1),(TheUser),6,Bone Cruncher] `<if>=[(TempInt1),(TheUser),7,Twin Swords] `<if>=[(TempInt1),(TheUser),8,Power Axe] `<if>=[(TempInt1),(TheUser),9,Able's Sword] `<if>=[(TempInt1),(TheUser),10,Wan's Weapon] `<if>=[(TempInt1),(TheUser),11,Spear of gold] `<if>=[(TempInt1),(TheUser),12,Chrystal Shard] `<if>=[(TempInt1),(TheUser),13,Nira's Teeth] `<if>=[(TempInt1),(TheUser),14,Blood Sword] `<if>=[(TempInt1),(TheUser),15,Death Sword] `<NewLine> `2Armour: `<PrintVal>=[(LordArmour),(TempStr0)] `<Space> `<Space> `2Real armour name: `<Space> `<SetVal>=[(TempInt1),(TempStr0),(LArmourNum)] `<if>=[(TempInt1),(TheUser),1,Coat] `<if>=[(TempInt1),(TheUser),2,Heavy Coat] `<if>=[(TempInt1),(TheUser),3,Leather Vest] `<if>=[(TempInt1),(TheUser),4,Bronze Armour] `<if>=[(TempInt1),(TheUser),5,Iron Armour] `<if>=[(TempInt1),(TheUser),6,Graphite Armour] `<if>=[(TempInt1),(TheUser),7,Erdrick's Armour] `<if>=[(TempInt1),(TheUser),8,Armour of Death] `<if>=[(TempInt1),(TheUser),9,Able's Armour] `<if>=[(TempInt1),(TheUser),10,Full body armour] `<if>=[(TempInt1),(TheUser),11,Blood Armour] `<if>=[(TempInt1),(TheUser),12,Magic Protection] `<if>=[(TempInt1),(TheUser),13,Belar's Mail] `<if>=[(TempInt1),(TheUser),14,Golden Armour] `<if>=[(TempInt1),(TheUser),15,Armour of Lore] `<NewLine> `<goto>=[@#okcont2] @#okcont2 `<RetOff> `2Hitpoints: `<Space> `<PrintVal>=[(LordHP),(TempStr0)] of `<Space> `<PrintVal>=[(LordHPMax),(TempStr0)] `2 ArmourNum: `<PrintVal>=[(LArmourNum),(TempStr0)] `2 WeaponNum: `<PrintVal>=[(LWeaponNum),(TempStr0)] `<NewLine> `2Forest Fights: `<PrintVal>=[(LForestFights),(TempStr0)] `2 Human Fights: `<PrintVal>=[(LHumanFights),(TempStr0)] `<NewLine> `2Gold: `<PrintVal>=[(LordGold),(TempStr0)] `2.......In bank: `<PrintVal>=[(LordBank),(TempStr0)] `<NewLine> `2Strength: `<PrintVal>=[(LStrength),(TempStr0)] `2.....Defence: `<PrintVal>=[(LDefence),(TempStr0)] `<NewLine> `2Level: `<PrintVal>=[(Level),(TempStr0)] `2.....Charm: `<PrintVal>=[(LCharm),(TempStr0)] `<NewLine> `2Gems: `<PrintVal>=[(LGems),(TempStr0)] `2.....EXPERIENCE: `<PrintVal>=[(LordExp),(TempStr0)] `<NewLine> `2Lays: `<PrintVal>=[(Lays),(TempStr0)] `2.....Kids: `<PrintVal>=[(LKids),(TempStr0)] `<NewLine> `<if>=[(LSeenDragon),(TempStr0),5,`2-=-=-=-=-HAS seen the dragon-=-=-=-=-] `<if>=[(LSeenDragon),(TempStr0),0,`2-=-=-=-=-HAS NOT seen the dragon-=-=-=-=-] `<NewLine> `<if>=[(LSeenViolet),(TempStr0),5,`2-=-=-=-=-HAS seen violet-=-=-=-=-] `<if>=[(LSeenViolet),(TempStr0),0,`2-=-=-=-=-HAS NOT seen violet-=-=-=-=-] `<NewLine> `<if>=[(LSeenMaster),(TempStr0),5,`2-=-=-=-=-HAS seen the master-=-=-=-=-] `<if>=[(LSeenMaster),(TempStr0),0,`2-=-=-=-=-HAS NOT seen the master-=-=-=-=-] `<NewLine> `<if>=[(LDead),(TempStr0),5,`2-=-=-=-=-Is LDead in lord-=-=-=-=-] `<if>=[(LDead),(TempStr0),0,`2-=-=-=-=-Is NOT Dead in lord-=-=-=-=-] `<NewLine> `<if>=[(LInn),(TempStr0),5,`2-=-=-=-=-Is sleeping in the Inn-=-=-=-=-] `<if>=[(LInn),(TempStr0),0,`2-=-=-=-=-Is NOT sleeping in the Inn-=-=-=-=-] `<NewLine> `<if>=[(LSex),(TempStr0),5,`2-=-=-=-=-Is female-=-=-=-=-] `<if>=[(LSex),(TempStr0),0,`2-=-=-=-=-Is male-=-=-=-=-] `<NewLine> `<if>=[(LBard),(TempStr0),5,`2-=-=-=-=-HAS seen the bard-=-=-=-=-] `<if>=[(LBard),(TempStr0),0,`2-=-=-=-=-HAS NOT seen the bard-=-=-=-=-] `<NewLine> `<if>=[(LClass),(TempStr0),1,`3Interested in the death knight skills] `<if>=[(LClass),(TempStr0),2,`9Interested in the mystical skills] `<if>=[(LClass),(TempStr0),3,`$Interested in thieving skills] `<NewLine> `5Skills: DeathKnight[ `<PrintVal>=[(LevelM),(TempStr0)] `2/`5 `<PrintVal>=[(LSkillW),(TempStr0)] ] Mystical[ `<PrintVal>=[(LevelM),(TempStr0)] `2/`5 `<PrintVal>=[(LSkillM),(TempStr0)] ] Thieving[ `<PrintVal>=[(LevelT),(TempStr0)] `2/`5 `<PrintVal>=[(LSkillT),(TempStr0)] ] `<NewLine> `<RetOn> `<More> `<BreakIfNoMail> `<SetVal>=[(TempStr1),(TheUser),YOU GAINED SOME INFO FROM THE THIEVES!] `<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),$] @#InnOptionsH `2 You wander down the hall to the back door... `2Through the back door is the stables...Wow and even the stables are fancy... `2You see Stable master Taim watching as his employees care for some lord's `2horse...You decide to have a chat... `5Soon he gets down to the nitty gritty... `2(`5S`2)ell you horse for 50,000 life dollars `2(`5B`2)uy a horse for 100,000 life dollars `2(`5T`2)rade a fairy for a horse `2(`5R`2)eturn to the inside of the Inn `<RetOff> `2So what will you do he grumps (S,B,T,R) ? `0[`5R`0]: `<Space> `<GetAns>=[(TempStr0),RSBT,(TheUser)] `<PrintVal>=[(TempStr0),(TheUser)] `<NewLine> `<RetOn> `<if>=[(TempStr0),(TheUser),R,@#Abort] `<if>=[(TempStr0),(TheUser),S,@#SellHorse] `<if>=[(TempStr0),(TheUser),B,@#BuyHorse] `<if>=[(TempStr0),(TheUser),T,@#TradeForHorse] @#BuyHorse `<if>=[(LHaveHorse),(TheUser),1,@#Abort] `<ifless>=[(FLifeGold),(TheUser),100000,@#NSF] `<SubVal>=[(FLifeGold),(TheUser),100000] `<SetVal>=[(LHaveHorse),(TheUser),1] `<NewLine> `2 After you hand over the money, Taim shows you to the `2rear of the stables where you see some horses lose in `2a ring...He motions you toward the ring as he says go `2get one of those horses in there... `2 It wasn't easy but soon you come out with a `2horse which you think will serve well enough... `<BreakIfNoMail> `<SetVal>=[(TempStr1),(TheUser),YOU BOUGHT A horse FROM Taim!] `<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),3] @#SellHorse `<if>=[(LHaveHorse),(TheUser),0,@#Abort] `<RetOff> `3Sell your horse for 50,000 Life dollars? (Y/N) `0[`5Y`0]: `<Space> `<GetAns>=[(TempStr0),YN,(TheUser)] `<PrintVal>=[(TempStr0),(TheUser)] `<NewLine> `<RetOn> `<if>=[(TempStr0),(TheUser),N,@#Abort] `<AddVal>=[(FLifeGold),(TheUser),50000] `<SetVal>=[(LHaveHorse),(TheUser),0] `2 You hand over your horse...Taim leads it into the `2back of the stables where a groom is waiting... `2I guess they need to make your horse more presentable... `2Oh well that's done. `<BreakIfNoMail> `<SetVal>=[(TempStr1),(TheUser),YOU SOLD A horse TO Taim!] `<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),5] @#TradeForHorse `<NewLine> `2The stable master speaks: `5Fairies will perform a task for any who catch them... `5The thieves will offer me a good price for a fairy... `5So I will gladly take yours off your hands in exchange `5for a horse... `2 If you have one...I will give you a horse... `<RetOff> `2in exchange for the fairy...Is this ok? (Y/N) `0[`5Y`0]: `<Space> `<GetAns>=[(TempStr0),YN,(TheUser)] `<PrintVal>=[(TempStr0),(TheUser)] `<NewLine> `<RetOn> `<if>=[(TempStr0),(TheUser),N,@#Abort] `<if>=[(TGotFairy),(TheUser),0,@#NoFairy] `5Ok great...here you go... `<SetVal>=[(LHaveHorse),(TheUser),1] `<SetVal>=[(TGotFairy),(TheUser),0] `5Ahhh and thanks for the fairy... `2Stable master Taim doesn't look so grumpy as you ride off. `<BreakIfNoMail> `<SetVal>=[(TempStr1),(TheUser),YOU TRADED A fairy FOR A horse!] `<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),%] @#InnOptionsR `<SetMenuAndFile>=[MainMenu,(TLifesDir),MAINTXT.DAT] @#InnOptions| `<SetMenuAndFile>=[MainMenu,(TLifesDir),MAINTXT.DAT] @#UserNotFound `<NewLine> `<RetOn> `7User not found... `2The user may not have been in lord life yet... `2Or you may not have entered the name right... `2Type less of the name if you are unsure... @#UserNoInfo `<NewLine> `2Sorry...but that user has not entered their info yet. `<NewLine> @#Abort `<NewLine> `4Aborted! `<NewLine> @#NoFairy `<NewLine> `2 Sorry pal...but you do not have a fairy! `<NewLine> @#NSF `2 `2Sorry...but you do not have enough money... `3Go to the bank and get some money...or `4get lost! @#ItsANoGo `2 `2Sorry...but I can't seem to find you in my out. reservation manifest... `3Hmm...You don't come from an old town do you??? `3Pre the version of our lord 3.50? `5If you are from an old version...go away! I don't like you! @#YouNoHave `2 `2WHAT!?! You do not have one!!! @#ENDOFFILE